home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / ARRAY.P < prev    next >
Text File  |  1990-09-13  |  1KB  |  37 lines
  1. temp <- <primitive 110 6 >
  2. <primitive 112 temp 1        " size " \
  3.     #( #[ 32 250 1 4 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " printString " \
  7.     #( #[ 48 113 32 250 1 4 114 34 80 204 247 21 32 34 250 \
  8.  2 111 169 49 11 17 33 11 17 113 34 81 193 241 114 \
  9.  242 249 26 242 50 33 11 17 243 245] \
  10.     #( ')' ' ' '#( '  ) ) >
  11.  
  12. <primitive 112 temp 3        " grow: " \
  13.     #( #[ 32 33 250 2 113 243 245] \
  14.     #(  ) ) >
  15.  
  16. <primitive 112 temp 4        " at:put: " \
  17.     #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
  18.  188 242 93 243 242 32 33 34 250 3 112 242 34 243 245 \
  19. ] \
  20.     #( 'index error'  ) ) >
  21.  
  22. <primitive 112 temp 5        " at: " \
  23.     #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
  24.  188 242 93 243 242 32 33 250 2 111 243 245] \
  25.     #( 'index error'  ) ) >
  26.  
  27. <primitive 112 temp 6        " new: " \
  28.     #( #[ 33 250 1 114 243 245] \
  29.     #(  ) ) >
  30.  
  31. <primitive 98 #Array \
  32.     <primitive 97 #Array #ArrayedCollection #\smalltlk\prelude\array.st \
  33.     #(  ) \
  34.     #( #size #printString #grow: #at:put: #at: #new:  ) \
  35.     temp 3 4 > >
  36.  
  37.